
argss <- commandArgs(trailingOnly = TRUE)

print(argss)

fil <- argss[2]
nam <- argss[3]

fill=paste('1', nam, 'pdf', sep='.')


pdf(fill, width=6, height=7)
par(ann=F, xaxs='i', yaxs='i')

source(paste(Sys.getenv('tools_path'), 'script/xy_plot_palm_0516.r', sep='/')) # new
# source(paste(Sys.getenv('tools_path'), 'script/xy_plot_palm.r', sep='/')) #old
xy_p_palm(fil, nam)

dev.off()

